_BC
bins1
bins2
min
max
br1
cnt1
br2
cnt2
update

#/* Update-Layer1(x, breaks, counts, x - observed value of the random */
#/* breaks counts NrB alfa Nr */
#/* NrB, alfa, Nr) variable */
#/* break points frequency counts */
#/* - vector of actual set of */
#/* - vector of actual set of */
#/* - Actual number of breaks */
#/* - threshold for Split an interval - Number of observed values */
#/* If (x */
#/* Else If (x > breaks[NrB] k = NrB; Max.x = x Else k = 2 + integer((x - breaks[1]) / step) */
#/* while(x < breaks[k-1]) k <- k - 1 while(x > breaks[k]) k <- k + 1 */
#/* counts[k] = 1 + counts[k] */
#/* Nr = 1 + Nr */
#/* If ((1+counts[k])/(Nr+2) > alfa) { */
#/* val = counts[k] / 2 counts[k] = val */
#/* if (k == 1) { */
#/* breaks = append(breaks[1]-step, breaks) */
#/* counts <- append(val,counts) } */
#/* else { */
#/* if(k == NrB) { */
#/* breaks <- append(breaks, breaks[NrB]+step) */
#/* counts <- append(counts,val) } */
#/* else { */
#/* breaks <- Insert((breaks[k]+ breaks[k+1])/2, breaks, k) counts <- Insert(val, counts, k) */
#/* < breaks[1]) k = 1; Min.x = x */
#/* } } */
#/* NrB = NrB + 1 } */
